home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
os2
/
famtree
/
lngevity.ftx
< prev
next >
Wrap
Text File
|
1996-05-20
|
2KB
|
64 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
< This script shows the longevity of all persons in the tree
that have a date of birth and death
/ Dieses Skript zeigt die Lebenszeit aller Menschen aus dem Baum,
die einen Geburtstag und Sterbetag haben.>
*/
/* ----------------------- Params / Parameter ------------------- */
namewidth=40
IF getLanguage()='Deutsch' THEN DO
header = 'Lebenszeitanalyse. (erreichtes Alter) Heute ist der '
END
ELSE DO
header = 'Longevity Analysis. (Age at death) Today is '
END
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
SAY(header||DATE())
SAY(....................................................)
/* ------------------------------ Output / Ausgabe ----------------- */
/* Sort Persons by Longevity / Personen sortieren nach Lebenszeit */
rc=sortPersons('L')
/* Display persons in tree / Anzeigen der Menschen im Stammbaum*/
rc=selectPerson('F')
DO UNTIL rc=0
/* Check Birth & Death years / Nachpruefen von Geburts-, Todesdatum */
birth=getBirthDate('Y')
death=getDeathDate('Y')
IF birth<>0 & death<>0 THEN DO
b_days=getBirthDate('d')
d_days=getDeathDate('d')
/* Say the result / Ergebnis ausgeben */
result = getName()||','||GetFirstName()
result=LEFT(result,namewidth)
SAY(result||' ('||(d_days-b_days)%365||')')
END
/* next / naechster */
rc=selectPerson('N')
END
/* Done / Fertig */
RETURN